;;;QQ:67762207
[@zbsdd]
{
#SAY
 װ,ҪСŲ,װӰȫ,ᱻ͵޷\
 Ҫ100\
 <Ҫװ/@@>

[@@]
#ACT
MOV A0 %INPUTSTR
#IF
EQUAL A0 %USERNAME
#ACT
SYSMSG "Բ,Լ"
BREAK
#IF
EQUAL A0 ""
#ACT
SYSMSG "Ϣ"
BREAK
#ELSESAY
{FCOLOR/1}100{FCOLOR/12}\
 ѡҪ{FCOLOR/10}װ{FCOLOR/12}(ϵ!)\
</@װ(3)> \
</@װ(5)> </@װ(6)>\ 
<ҽָ/@װ(8)>\ 
 ѡҪ{FCOLOR/10}װ{FCOLOR/12}(ϵ!)\
</@װ(3)> \
</@װ(5)> </@װ(6)>\ 
<ҽָ/@װ(8)>\ 


[@װ()]
#ACT
MOV D9 %ARG(1)
FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A0 %D9
ReadValueSql "TBL_ITEM" %A9 "FLD_DESC9,FLD_CHARACTER" @

[@()]
#ACT
MOV D1 %ARG(1)
MOV A1 %ARG(2)
#IF
EQUAL A1 ""
#ACT
SYSMSG "Բ,ûװ"
BREAK
#IF
EQUAL D1 1
#ACT
SYSMSG "װѾװ,!"
BREAK
#IF
   checkcmd CHECKUSERJF 100
#ACT
   actcmd SETUSERJF - 100
FormatStr "FLD_CHARACTER='%s'" %A0 
mov A5 %A9
 FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A0 %D9
mov A5 %A9
 FormatStr "FLD_DESC9='%s'" 1
 UPDATEVALUESQL "TBL_ITEM" %A5 %A9
sysmsg "ɹ"
CLOSE
#ELSESAY
ֲ!ϵGM~\

[@װ()]
#ACT
MOV D9 %ARG(1)
FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A0 %D9
ReadValueSql "TBL_ITEM" %A9 "FLD_DESC9,FLD_CHARACTER" @

[@()]
#ACT
MOV D1 %ARG(1)
MOV A1 %ARG(2)
#IF
EQUAL A1 ""
#ACT
SYSMSG "Բ,ûװ"
BREAK
#IF
EQUAL D1 0
#ACT
SYSMSG "װѾڽװ,ٽ!"
BREAK
#IF
   checkcmd CHECKUSERJF 100
#ACT
   actcmd SETUSERJF - 100
FormatStr "FLD_CHARACTER='%s'" %A0 
mov A5 %A9
 FormatStr "FLD_CHARACTER='%s' AND FLD_TYPE='%s'" %A0 %D9
mov A5 %A9
 FormatStr "FLD_DESC9='%s'" 0
 UPDATEVALUESQL "TBL_ITEM" %A5 %A9
sysmsg "ɹ"
CLOSE
BREAK
}
;;;QQ:67762207


